COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
INSTRUMENT STER;
P7 ← (P3-100)/1000;
IF P7 > 1 THEN P7 ←1;
IF P7 < 0 THEN P7 ←0;
P6←F6; IF P3 > D/2 THEN P6←F5;
IF P3 > C*2 THEN P6←F4; IF P3 > F*4 THEN P6←F3;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2*P7;
OUTB←OUTB+U2*(1-P7);
END;
NCHNS←2;
*
STER 0 20;
P2 .11;
P3 MOVX /10 60 2400/10 2400 60;
P4 1000;
P5 F1;
END;